Lbl R ClrText Locate 6,3,"ATTENTION," Locate 5,5,"T'ES PRET???" Locate 8,7,"[EXE]" Do LpWhile Getkey 31 ClrText 0 Z 5 Y Int 4Ran# A Int 4Ran# B Int 4Ran# C Int 4Ran# D Int 4Ran# E Int 4Ran# F Int 4Ran# G Int 4Ran# H Int 4Ran# I Int 4Ran# J Int 4Ran# K Lbl 0 Locate 1,2,"---------------------" Locate 1,4,"---------------------" Locate 1,3,A Locate 3,3,B Locate 5,3,C Locate 7,3,D Locate 9,3,E Locate 11,3,F Locate 13,3,G Locate 15,3,H Locate 17,3,I Locate 19,3,J Locate 21,3,K Locate 6,7,"TEMPS:" Locate 13,7,Y Y-1 Y Y=-1 Goto A Goto 0 Lbl A Isz Z ClrText "1ER" ? L "2EME" ? M "3EME" ? N "4EME" ? O "5EME" ? P "6EME" ? Q "7EME" ? R "8EME" ? S "9EME" ? T "10EME" ? U "11EME" ? V A=L And B=M And C=N And D=O And E=P And F=Q And G=R And H=S And I=T And J=U And K=V Goto 8 Lbl 9 ClrText "DOMMAGE, C'EST PAS CA!!!!" "ESSAYE ENCORE." 5 Y Do LpWhile Getkey 31 ClrText Z=10 Goto 7 Goto 0 Lbl 8 ClrText "BRAVO, C'EST BIEN CA." "NBRE DE TENTATIVES:" Z Goto R Lbl 7 "PERDU!!!" "DOMMAGE!!!!" Goto R
|